home *** CD-ROM | disk | FTP | other *** search
- /* REXX COMMAND FILE THAT WILL RUN THE DDTT DEVICE DRIVER PROGRAM. */
-
- call RxFuncAdd "SysLoadFuncs","RexxUtil","SysLoadFuncs"
- call SysLoadFuncs
- call SysCls
-
- LineNum = "2"
- pos = SysCurPos(LineNum,6)
- SAY "THIS COMMAND FILE TESTS DASD DEVICE DRIVERS. THIS PROGRAM"
- LineNum = LineNum + 1
- pos = SysCurPos(LineNum,6)
- SAY "RUNS SCRIPT FILES WHICH EXERCISE DASD FUNCTIONS."
-
- J=1
- CALL SETINFO.CMD J, LINENUM
-
- SAY " "
- SAY " "
- SAY " PLEASE ENTER WHEN YOU ARE READY TO START THE TESTS.."
- PULL PRESSKEY
-
- /*--------------------------DASD TEST SCRIPTS----------------------------*/
- /* Note: destructive tests have been commented out! */
- DDTT LOCKLOG.SCR
- DDTT QMEDIA.SCR
- DDTT REDETERM.SCR
- DDTT QLOGMAP.SCR
- DDTT BLOCK.SCR
- DDTT GPPARAMS.SCR
- DDTT ULOCKLOG.SCR
- DDTT GLPARAMS.SCR
- DDTT RLOGT1.SCR
- /* DDTT FORMTRK.SCR */
- /* DDTT WLOGT1.SCR */
- DDTT LOCKPHY.SCR
- DDTT ULOCKPHY.SCR
- DDTT VLOG.SCR
- DDTT SLOGMAP.SCR
- DDTT RPHYT1.SCR
- DDTT VPHY.SCR
- DDTT READFILE.SCR
- /* DDTT WPHYT1.SCR */
- /* DDTT WRITEFIL.SCR */
- DDTT SETPARAM.SCR
- DDTT RLOGT2.SCR
- /* DDTT WLOGT2.SCR */
- DDTT RPHYT2.SCR
- /* DDTT WPHYT2.SCR */
-
- /*--------------------------END OF TEST SCRIPTS---------------------------*/
-
- /*---------------------SEARCH TEST SCRIPTS FOR ERRORS---------------------*/
-
- call SysCls
-
- SAY " "
- SAY " SEARCHING LOG FILES FOR ANY ERROR MESSAGES...."
- SAY " "
- call search 'ERROR', '*.LOG', 'RESULTS.TXT'
- "TYPE RESULTS.TXT|MORE"
-
- call SysDropFuncs
- EXIT
- /* DONE */